-- card: 3289 from stack: in
-- bmap block id: 4621
-- flags: 0000
-- background id: 2774
-- name: player board
----- HyperTalk script -----
--
--
--   This stack and it's scripts and graphics are copyright 1989,
--   Prophecy Software Inc.  All rights reserved.
--
--   You may examine this code for your own benifit.
--   If you wish to make changes that enhance the stack please make
--   them to a copy and contact us at:
--
--   Prophecy Software Inc.
--   3650 Silverside Rd. Suite 3
--   Wilmington, DE 19810
--   (302) 994-1502
--
--   We will be happy to consider distributing an updated version with
--   propper credit given to the author.  distribution of copies of this
--   stack with un-authorized alterations constitures copyright
--   violation and fraud.

on opencard
  global letter, length
  global is_horizontal

  set hilite of button horizontal to true
  set hilite of button vertical to false

  hide card field 1
  put true into is_horizontal

  put "B" into letter
  put 5 into length

  set hilite of button 4 to false
  set hilite of button 5 to false
  set hilite of button 6 to false
  set hilite of button 2 to true
  set hilite of button 3 to false

end opencard



-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=24 top=80 right=209 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
--
--
--   This stack and it's scripts and graphics are copyright 1989,
--   Prophecy Software Inc.  All rights reserved.
--
--   You may examine this code for your own benifit.
--   If you wish to make changes that enhance the stack please make
--   them to a copy and contact us at:
--
--   Prophecy Software Inc.
--   3650 Silverside Rd. Suite 3
--   Wilmington, DE 19810
--   (302) 994-1502
--
--   We will be happy to consider distributing an updated version with
--   propper credit given to the author.  distribution of copies of this
--   stack with un-authorized alterations constitures copyright
--   violation and fraud.

on mouseUp
  global letter, length, is_horizontal

  put the mouseh - the left of target into delta_h
  put the mousev - the top of target into delta_v
  put round(delta_h /  16 + .5) into delta_h
  put round(delta_v / 16 + .5) into delta_v

  put (delta_v -1) * 8 + delta_h into the_field

  put field the_field into save_field
  put "  " into field the_field
  select line 1 of field the_field

  if is_horizontal is true then
    if delta_h + length - 1 > 8 then
      answer "Boat will not fit there"
      put save_field into field the_field
      exit mouseup
    end if
  else
    if delta_v + length - 1 > 8 then
      answer "Boat will not fit there"
      put save_field into field the_field
      exit mouseup

    end if
  end if

  put save_field into field the_field

  put the_field into temp_field
  put 0 into count
  repeat while count < length
    add 1 to count
    get field temp_field
    if it is not "" and it is not letter then
      answer "Boat will not fit there"
      exit mouseup
    end if

    if is_horizontal then
      add 1 to temp_field
    else
      add 8 to temp_field
    end if
  end repeat

  put 1 into count
  repeat while count <= length
    get line count of card field letter
    if it is not "" then
      put "" into field it
    end if

    add 1 to count
  end repeat

  put the_field into temp_field
  put 0 into count
  repeat while count < length
    add 1 to count

    put letter into field temp_field
    put temp_field into line count of card field letter
    if is_horizontal then
      add 1 to temp_field
    else
      add 8 to temp_field
    end if
  end repeat

end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=256 top=48 right=65 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Battle Ship  (B)
----- HyperTalk script -----
on mouseUp
  global letter, length

  put "B" into letter
  put 5 into length

  set hilite of button 4 to false
  set hilite of button 5 to false
  set hilite of button 6 to false
  set hilite of button 2 to false
  set hilite of button 3 to false
  set hilite of target to true
end mouseUp



-- part 47 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=256 top=72 right=89 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Aircraft Carrier (C)
----- HyperTalk script -----
on mouseUp
  global letter, length

  put "C" into letter
  put 4 into length

  set hilite of button 4 to false
  set hilite of button 5 to false
  set hilite of button 6 to false
  set hilite of button 2 to false
  set hilite of button 3 to false
  set hilite of target to true

end mouseUp



-- part 48 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=256 top=96 right=113 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Troop Transport (T)
----- HyperTalk script -----
on mouseUp
  global letter, length

  put "T" into letter
  put 3 into length

  set hilite of button 4 to false
  set hilite of button 5 to false
  set hilite of button 6 to false
  set hilite of button 2 to false
  set hilite of button 3 to false
  set hilite of target to true

end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=256 top=120 right=137 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Submarine (S)
----- HyperTalk script -----
on mouseUp
  global letter, length

  put "S" into letter
  put 3 into length

  set hilite of button 4 to false
  set hilite of button 5 to false
  set hilite of button 6 to false
  set hilite of button 2 to false
  set hilite of button 3 to false
  set hilite of target to true

end mouseUp



-- part 50 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=256 top=144 right=161 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PT Boat (P)
----- HyperTalk script -----
on mouseUp
  global letter, length

  put "P" into letter
  put 2 into length

  set hilite of button 4 to false
  set hilite of button 5 to false
  set hilite of button 6 to false
  set hilite of button 2 to false
  set hilite of button 3 to false
  set hilite of target to true

end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=224 top=184 right=201 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Horizontal
----- HyperTalk script -----
on mouseUp
  global is_horizontal
  put true into is_horizontal
  set hilite of target to true
  set hilite of button vertical to false
end mouseUp



-- part 52 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=352 top=184 right=201 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Vertical
----- HyperTalk script -----
on mouseUp
  global is_horizontal
  put false into is_horizontal
  set hilite of target to true
  set hilite of button horizontal to false
end mouseUp



-- part 55 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=27 top=221 right=246 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  global last_message, ship_ok, whom

  show card field "checking"
  put 1 into count
  put 0 into num_ships
  repeat while count < 65

    if field count is not "" then add 1 to num_ships
    add 1 to count
  end repeat

  hide card field "checking"
  if num_ships is not 17 then
    answer "Sorry, you are not ready yet."
    exit mouseup
  end if

  visual effect scroll right
  if whom is not empty then
    get writemodem("done" && "•")
  end if

  put true into ship_ok

  put "done" into last_message
  if whom is not empty then
    send whom to card "start"
  else
    go to card start
  end if

end mouseUp



-- part 56 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=128 top=285 right=308 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: 


-- part 58 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=27 top=249 right=275 bottom=150
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  put 0 into count
  repeat while count < 64
    add 1 to count
    put "" into field count
  end repeat

  put "" into card field "B"
  put "" into card field "C"
  put "" into card field "T"
  put "" into card field "S"
  put "" into card field "P"

end mouseUp



-- part 59 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=169 top=201 right=283 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B


-- part 60 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=204 top=201 right=270 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C


-- part 61 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=240 top=201 right=253 bottom=269
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: T


-- part 62 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=275 top=201 right=252 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: S


-- part 63 (field)
-- low flags: 80
-- high flags: 4002
-- rect: left=312 top=201 right=236 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: p


-- part 65 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=10 top=126 right=158 bottom=180
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 18
-- style flags: 256
-- line height: 24
-- part name: Checking


-- part 67 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=184 top=33 right=66 bottom=226
-- title width / last selected line: 0
-- icon id / first selected line: 2507 / 2507
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect barn door open
  go to next card
end mouseUp



-- part contents for card part 56
----- text -----
Opponent is Ready

-- part contents for card part 65
----- text -----
Checking

-- part contents for card part 62
----- text -----
13
14
15

-- part contents for card part 63
----- text -----
51
59

-- part contents for card part 61
----- text -----
61
62
63

-- part contents for card part 59
----- text -----
17
25
33
41
49

-- part contents for card part 60
----- text -----
36
37
38
39

-- part contents for background part 14
----- text -----
S

-- part contents for background part 15
----- text -----
S

-- part contents for background part 16
----- text -----
S

-- part contents for background part 18
----- text -----
B

-- part contents for background part 26
----- text -----
B

-- part contents for background part 34
----- text -----
B

-- part contents for background part 42
----- text -----
B

-- part contents for background part 50
----- text -----
B

-- part contents for background part 37
----- text -----
C

-- part contents for background part 38
----- text -----
C

-- part contents for background part 39
----- text -----
C

-- part contents for background part 40
----- text -----
C

-- part contents for background part 62
----- text -----
T

-- part contents for background part 63
----- text -----
T

-- part contents for background part 64
----- text -----
T

-- part contents for background part 52
----- text -----
P

-- part contents for background part 60
----- text -----
P